home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / comm / fido / Rock_1_5.lha / ROCK / CallNode < prev    next >
Text File  |  1995-07-15  |  395b  |  14 lines
  1. /* Start Rock with a 4D address, using reqtools requester
  2.    This script needs rexxreqtools.library */
  3.  
  4. defaddr = ""  /* Put the default address between the "" */
  5.  
  6. addlib('rexxreqtools.lib',0,-30)
  7. node = rtgetstring(defaddr,'Node to call ?','ROCK fido mailer',' _Ok | _Boss | _Cancel', , result)
  8.  
  9. if result = '0' then exit 0
  10.  
  11. if result = '2' then node = 'BOSS'
  12.  
  13. address command 'rock:rock' node
  14.